﻿Option Explicit On
Option Strict On

'Documentación XML
''' <summary>
''' Este formulario comprobará el acceso a la aplicación.
''' </summary>
''' <author> Jerón Fernández Caballero Rico</author>
''' <author> Daniel Morato Baudi</author>

Public Class FormAnyadirJugador

    Dim Whatsapp As Integer

    Private Sub btn_Aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Aceptar.Click

        If cb_Whatsapp.Checked = False Then
            Whatsapp = 0
        Else
            Whatsapp = 1
        End If

        Dim NuevoJugador As New Jugador(tb_Nombre.Text, tb_Apellido.Text,
                                        tb_Direccion.Text, CInt(mtb_Telefono.Text),
                                        tb_Email.Text, Whatsapp,
                                        tb_Facebook.Text, tb_Twitter.Text,
                                        tb_Observaciones.Text)

        NuevoJugador.AnyadirJugador(NuevoJugador)

    End Sub
End Class